Aminet 3/Aminet 3 - July 1994.iso/Aminet/util/misc/man31.lha/Man3.1/Install

Text File | 1994-05-02 | 5.8 KB | 177 lines

;  *** Man installation scipt ***

(welcome "Welcome to the Man installation!")

(
   ;get destination dir for Man-Commodity
   (set mydest
        (askdir
               (prompt "Select the directory where you want to put the commodity 'Man'.")
               (help   "The directory where you store the executable "
                       "should be easily accessible via WorkBench or CLI/Shell.\n\n"
                       @askfile-help
               )
               (default "SYS:WBStartup")
               (disk)
        )
   )

   (set @default-dest mydest)
   (set mmdest (tackon mydest "Man"))

   (
        (if (= 1 (exists mmdest))
            (
            (if (= 0
                (askbool
                   (prompt "You have already installed Man. Do you wish to overwrite it?\n\n")
                   (help @askbool-help)
                   (default 1)
                   (choices "Continue" "Abort")
                   ))

             (abort "Okay, I didn't overwrite the executable.")
             )
          )
       )
   )

   (copyfiles
       (prompt ("Copying Man executable to %s." mydest))
       (help @copyfiles-help)
       (source "Man")
       (dest mydest)
       (infos)
   )

)

(
   ;Copy Docs
   (if
      (set qval
           (askoptions
                (prompt "Please choose which docs you want to have installed! "
                        "(Or choose none to have no docs installed!)")
                         (choices
                              "English Doc"
                  "English Guide"
                              "German Doc"
                  "German Guide"
                         )
                         (default 0)
                         (help
                               "Not installing the docs is unwise because you could have "
                               "questions while using Man. Choosing the "
                               "documentation in your favourite language is sufficient.\n\n"
                               @askoptions-help
                         )
                )
           )

           (
                (set docsdest
                     (askdir
                         (prompt "Select the directory where you want to put the docs.")
                         (help
                              "You may store the docs where you usually store docs or "
                              "in the directory where Man resides in.\n\n"
                              @askfile-help
                              )
                         (default mydest)
                         )
                     )

                     (if (IN qval 0)
                         (copyfiles
                             (prompt ("Copying english doc to %s." docsdest))
                             (help @copyfiles-help)
                             (source "DOCS/English/Man.DOC")
                             (dest docsdest)
                             (infos)
                         )
                     )

                     (if (IN qval 1)
                         (copyfiles
                             (prompt ("Copying english guide to %s." docsdest))
                             (help @copyfiles-help)
                             (source "DOCS/English/Man.guide")
                             (dest docsdest)
                             (infos)
                         )
                 )

                     (if (IN qval 2)
                         (copyfiles
                             (prompt ("Copying german doc to %s." docsdest))
                             (help @copyfiles-help)
                             (source "DOCS/Deutsch/Man.dok")
                             (dest docsdest)
                             (infos)
                         )
                     )

                     (if (IN qval 3)
                         (copyfiles
                             (prompt ("Copying german guide to %s." docsdest))
                             (help @copyfiles-help)
                             (source "DOCS/Deutsch/Man.guide")
                             (dest docsdest)
                             (infos)
                         )
                     )
               )
        )
)

(
   ;install LOCALEs
   (set catdir "LOCALE:catalogs")

   (if (= 2 (exists "LOCALE:" (noreq)))
       (if
          (set qval
               (askoptions
                   (prompt "Please choose which catalogs you want to have "
                           "installed! "
                           "(Or choose none to have no catalogs installed!)")
                   (choices
                           "Deutsch"
               "Svenska"
                   )
                   (default 1)
                   (help
                           "It is sufficient to install the catalog(s) of the language(s) "
                           "that you specified as 'preferred' in the locale-preferences "
                           "editor. \n\n"
                           @askoptions-help
                   )
               )
           )
       (
               (if (IN qval 0)
                   (copyfiles
                       (prompt ("Copying german catalog to %s." (tackon catdir "deutsch")))
                               (help @copyfiles-help)
                               (source "Catalogs/deutsch/man.catalog")
                               (dest (tackon catdir "deutsch"))
                               (infos)
               )
           )

               (if (IN qval 1)
                   (copyfiles
                       (prompt ("Copying swedish catalog to %s." (tackon catdir "svenska")))
                               (help @copyfiles-help)
                               (source "Catalogs/svenska/man.catalog")
                               (dest (tackon catdir "svenska"))
                               (infos)
                       )
                   )
               )
           )
    )
)